Imports System.IO
Imports System.Data.SqlClient
Public Class f_DCTImport
    Dim DirTree As New Cls_CompDirTree
    Dim objhdlr As New Cls_DCTDevHdlr
    Dim strConString As String = "data source=.;initial catalog=" & f_DCTDevPreparation.f & ";persist security info=False;user id=realm;password=friend;packet size=4096"
    Private Sub f_DCTImport_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim drives As String()
        Dim counter As Integer
        drives = Environment.GetLogicalDrives()
        ddlImpDrivelist.Items.Add("--select--")
        For counter = 0 To drives.Length - 1
            ddlImpDrivelist.Items.Add(drives(counter).ToString())
        Next
        ddlImpDrivelist.SelectedIndex = 0
    End Sub
    Private Sub ddlImpDrivelist_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlImpDrivelist.SelectedIndexChanged
        DirTree.Size = New Size(209, 190)
        DirTree.Location = New Point(12, 173)
        Me.Controls.Clear()
        If ddlImpDrivelist.SelectedIndex <> 0 Then
            DirTree.Drive = ddlImpDrivelist.SelectedItem
            Me.Controls.Add(ddlImpDrivelist)
            Me.Controls.Add(DirTree)
        End If
        Me.Controls.Add(lblExcelPatch)
    End Sub
End Class